home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / wb / THE.lha / T.H.E. / REXX / OS3.5 / Open.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1999-10-27  |  485 b   |  21 lines
  1. /*
  2.    $VER: Open.rexx 1.1 (20.10.99) Copyright (c) Nils Görs.
  3.  
  4.    Opens an drawer or starts an tool. I recommend to install this script as
  5.    hotkey placed on the [RETURN] button.
  6.    Using the argument YES will open a new drawer but root drawer become active
  7.    window again.
  8. */
  9.  
  10. options results
  11. PARSE ARG keeporig
  12.  
  13. ADDRESS WORKBENCH
  14.  
  15. GETATTR OBJECT WINDOWS.ACTIVE
  16. activewin = result
  17.  
  18. MENU WINDOW activewin INVOKE ICONS.OPEN
  19.  
  20. IF keeporig = "YES" THEN WINDOW WINDOWS activewin ACTIVATE
  21.